From 9fb96ae8ae3585339e0cb2019dd2f7bb40d8eea6 Mon Sep 17 00:00:00 2001
From: Jo-Philipp Wich <jo@mein.io>
Date: Fri, 28 Jun 2019 13:09:56 +0200
Subject: [PATCH] scripts: add usign secret to public key converter

Signed-off-by: Jo-Philipp Wich <jo@mein.io>
---
 scripts/sec2pubkey.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 scripts/sec2pubkey.pl

diff --git a/scripts/sec2pubkey.pl b/scripts/sec2pubkey.pl
new file mode 100755
index 0000000..60fff38
--- /dev/null
+++ b/scripts/sec2pubkey.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+
+use strict;
+use MIME::Base64;
+
+my @lines = (-t STDIN) ? () : <>;
+
+if (@lines == 0) {
+	die "Usage: $0 < key.sec > key.pub\n";
+}
+
+my $seckey = decode_base64(pop @lines);
+my $comment = shift(@lines) || "untrusted comment: secret key";
+
+chomp($comment);
+
+$comment =~ s/\bsecret key$/public key/;
+
+if (length($seckey) != 104) {
+	die "Unexpected secret key length\n";
+}
+
+my $pubkey = encode_base64(substr($seckey, 0, 2) . substr($seckey, 32, 8) . substr($seckey, 72), "");
+
+printf "%s\n%s\n", $comment, $pubkey;
-- 
2.30.2